<%@codepage=65001%>
<!--#include file="classData.asp"-->
<%
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"



	AManagerId = Request.QueryString("maid")
	BManagerId = Request.QueryString("mbid")
	lpid = Request.QueryString("lpid")

	set HuaObj = new sysData
	HuaObj.sqlConnOpen()
	
	set HuaRds=server.CreateObject("ADODB.recordset")
	HuaObj.DbQuery HuaRds,"ClubInfo",QueryStr,0," ManagerId="&AManagerId
	
	set HuaRdsB=server.CreateObject("ADODB.recordset")
	HuaObj.DbQuery HuaRdsB,"ClubInfo",QueryStr,0," ManagerId="&BManagerId

	if lpid <> "" then
	set ScoreRds=server.CreateObject("ADODB.recordset")
	HuaObj.DbQuery ScoreRds,"LeaguePlan",QueryStr,0," LPId="&lpid
	
	thomescore = ScoreRds("HomeScore")
	tawayscore = ScoreRds("AwayScore")

	ScoreRds.Close
	end if

	response.ContentType="text/xml"	
	Response.Write("<?xml version=""1.0"" encoding=""utf-8""?>"&vbcrlf)
	Response.Write("<xml>"&vbcrlf)

	Response.Write("<Shi ShiId = ""1"">"&vbcrlf)
	Response.Write("<namea>"&HuaRds("ClubNameC")&"</namea>"&vbcrlf)
	Response.Write("<nameb>"&HuaRdsB("ClubNameC")&"</nameb>"&vbcrlf)

	if lpid <> "" then
	Response.Write("<hscore>"&thomescore&"</hscore>"&vbcrlf)
	Response.Write("<ascore>"&tawayscore&"</ascore>"&vbcrlf)
	end if
	
	Response.Write("</Shi>"&vbcrlf)

	
	Response.Write("</xml>"&vbcrlf)
	
	HuaRds.Close
	HuaRdsB.Close
	
	HuaObj.sqlConnClose()


%>
